home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / progdisk.d64 / draw (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  978b  |  37 lines
  1. 10 PRINTCHR$(9)CHR$(142):POKE53281,1:POKE53280,6:A=1
  2. 20 PRINT"[147]"TAB(17)"      [146]"
  3. 30 PRINTTAB(17)" DRAW [146]"
  4. 40 PRINTTAB(17)"      [146]"
  5. 50 PRINTTAB(4)"USE THE CURSOR KEYS AND SHIFT KEY"
  6. 60 PRINTTAB(7)"TO MOVE THE RACERS AROUND"
  7. 70 PRINT" PRESS:"
  8. 80 PRINT"         F1 FOR THE RED SYMBOL"
  9. 90 PRINT"[151]         F3 FOR THE BLACK SYMBOL"
  10. 100 PRINTTAB(10)"TO CLEAR THE SCREEN"
  11. 103 PRINTTAB(10)"PRESS SHIFT AND CLR"
  12. 105 PRINTTAB(9)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  13. 110 PRINTTAB(9)"[180]HIT ANY KEY TO START[170]"
  14. 115 PRINTTAB(9)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  15. 120 GET A$:IFA$=""THEN120
  16. 130 POKE53280,1:PRINT"[147]"
  17. 140 X=1024:POKEX,160:POKEX+54272,2:Y=1063:POKEY,83:POKEY+54272,11
  18. 150 GETA$:IFA$=""THENPRINTCHR$(142);:GOTO150
  19. 160 IFA$=CHR$(147)THEN130
  20. 170 IFA$="[133]"THENA=1
  21. 180 IFA$="[134]"THENA=2
  22. 190 ONAGOTO200,270
  23. 200 IFA$="[145]"THENX=X-40:GOTO240
  24. 210 IFA$=""THENX=X+40:GOTO240
  25. 220 IFA$=""THENX=X+1:GOTO240
  26. 230 IFA$="[157]"THENX=X-1
  27. 240 IFX<1024THENX=1024
  28. 250 IFX>2023THENX=2023
  29. 260 PRINTCHR$(142);:POKEX,160:POKEX+54272,2:GOTO150
  30. 270 IFA$="[145]"THENY=Y-40:GOTO310
  31. 280 IFA$=""THENY=Y+40:GOTO310
  32. 290 IFA$=""THENY=Y+1:GOTO310
  33. 300 IFA$="[157]"THENY=Y-1
  34. 310 IFY<1024THENY=1024
  35. 320 IFY>2023THENY=2023
  36. 330 PRINTCHR$(142);:POKEY,83:POKEY+54272,11:GOTO150
  37.